Voorbeeld van de methode Add

Dit voorbeeld maakt gebruik van de methode Add om Inst-objecten (aantal keren dat een klasse genaamd Class1 is aangetroffen met een variabele Public InstanceName) aan een collectie genaamd MyClasses toe te voegen. Om te zien hoe dit werkt, voegt u een klassenmodule in en declareert u een openbare variabele genaamd InstanceName op moduleniveau van Class1 (typ Public InstanceName) om daarin de namen van alle aangetroffen klassen op te nemen. Houd de standaardnaam Class1 aan. Kopieer de volgende programmacode naar de gebeurtenisprocedure Form_Load van een formuliermodule.

Dim MyClasses As New Collection    ' Maakt een object van het type collectie.
Dim Num As Integer    ' Teller voor het onderscheiden van sleutels.
Dim Msg
Dim TheName    ' Plaats voor namen die gebruiker invoert.
Do
    Dim Inst As New Class1    ' Maakt een nieuwe instantie van Class1.
    Num = Num + 1    ' Verhoogt Num en leest volgende naam.
    Msg = "Voer een naam in voor dit object." & Chr(13) _
     & "Klik op Annuleren om de namen in de collectie te zien."
    TheName = InputBox(Msg, "Benoem de items in de collectie")
    Inst.InstanceName = TheName    ' Plaatst naam in objectinstantie.
    ' Als gebruiker naam heeft ingevoerd, wordt deze aan collectie toegevoegd.
    If Inst.InstanceName <> "" Then
        ' Voegt het naamobject aan de collectie toe.
        MyClasses.Add item := Inst, key := CStr(Num)
    End If
    ' Wist de huidige verwijzing als voorbereiding op de volgende.
    Set Inst = Nothing
Loop Until TheName = ""
For Each x In MyClasses
    MsgBox x.instancename, , "Naam"
Next